Una slide con testo piccolo

Prova 2.1

• : logo unipd 1
• : logo unipd 2
• : logo unipd 3

Testo fuori dalle colonne

## 
## Call:
## lm(formula = Temp ~ Month, data = airquality)
## 
## Residuals:
##      Min       1Q   Median       3Q      Max 
## -20.5263  -6.2752   0.9121   6.2865  17.9121 
## 
## Coefficients:
##             Estimate Std. Error t value Pr(>|t|)    
## (Intercept)  58.2112     3.5191  16.541  < 2e-16 ***
## Month         2.8128     0.4933   5.703 6.03e-08 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 8.614 on 151 degrees of freedom
## Multiple R-squared:  0.1772, Adjusted R-squared:  0.1717 
## F-statistic: 32.52 on 1 and 151 DF,  p-value: 6.026e-08

shiny::shinyApp(
 ui = fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput(inputId = "dataset", # nome dell'input per il server
                  label = "Choose a dataset:", # nome dell'input per lo user
                  choices = c("rock", "pressure")) # opzioni
    ),

    mainPanel(
      plotOutput( #qui voglio un grafico 
        "graph"   
      )
    ) 
  )
),

server = function(input, output){
  output$graph <- renderPlot({
    if(input$dataset == "rock"){ 
      data <- rock
    } else {
      data <- pressure
    } 
    plot(data[, c(1:2)])
  })
}, 
options = list(height = 300)
)